home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #6 / Amiga Plus CD - 1996 - No. 06.iso / pd / netz / maildemon / install&update < prev    next >
Text File  |  1996-05-26  |  11KB  |  326 lines
  1.  
  2. ; TAB = 6
  3.  
  4.  
  5. ; #####  Globale Variablen  #####
  6. (set #versi-old "4.4")
  7. (set #versi-new "4.4b")
  8. (set #versi-dat "26-May-1996")
  9.  
  10. (set #installmode 0)
  11.  
  12. (set #cfg-help
  13.   (cat "Die angewählte Beispielkonfiguration wird in das MAILDEMON-Verzeichnis entpackt. "
  14.      "Bei Bedarf werden hierbei die Unterverzeichnisse \"MAILDEMON:Konfiguration/\" und "
  15.      "\"MAILDEMON:Files/\" automatisch erstellt.")
  16. )
  17. (set #not-inst "\n\n\n\n\n\nDer MAILDEMON wurde noch nicht installiert!")
  18.  
  19.  
  20. ; #####  Script-Start  #####
  21. (welcome
  22.   (if (= @installer-version "")
  23.     (
  24.       (message
  25.         (cat "\n\nDieses Installer-Script benötigt den neuen Installer 43.1 (oder höher) von "
  26.            "Amiga Technologies. Sie finden ihn wie folgt:\n\nFODDER: +49-(0)3838-24177\n"
  27.            "Zugang: GAST (kein Paßwort)\nBrett: /.Supports/MAILDEMON\n\nAminet: util/misc")
  28.       )
  29.       (exit (quiet))
  30.     )
  31.   )
  32.   (message (cat "\n\n\n\n\nMAILDEMON " #versi-new " [SHAREWARE]\n\nCopyright © " #versi-dat ' by\nMaik "BLiZZeR" Schreiber'))
  33.   (message
  34.     (cat "\nWerter MAILDEMON-Anwender, dies ist ein \"intelligentes\" Installationsscript. Alle "
  35.        "(De-)Installations-Aktion können Sie bequem über dieses Script regeln. Es versetzt "
  36.        "Sie in die Lage, jede einzelne Aktion zu steuern und zu überwachen. Vor jeder "
  37.        "schreibenden und löschenden Aktion kommt eine Sicherheitsabfrage, mit der Sie den "
  38.        "Vorgang auf Wunsch abbrechen können. Außerdem finden sie zu jeder Aktion eine "
  39.        "umfangreiche Hilfe, die Sie bei Fragen zu Rate ziehen können.\n\nViel Spaß noch :)")
  40.   )
  41. )
  42.  
  43. (while (= 1 1)
  44.   (
  45.  
  46.     (set #installmode
  47.     (askchoice
  48.       (prompt "Welchen Installationsmodus wünschen Sie?")
  49.       (choices (cat "Komplette Neuinstallation des MAILDEMON " #versi-new)
  50.              (cat "Update von Version " #versi-old " auf " #versi-new)
  51.                 "Starten des Konfigkonverters"
  52.                 "Starten von PMBS2Emp"
  53.                 "Installation einer Beispielkonfiguration"
  54.                 "Komplette Deinstallation des MAILDEMON"
  55.                 "Beenden des Installers")
  56.       (default #installmode)
  57.       (help @askchoice-help)
  58.     )
  59.     )
  60.  
  61.     ; #####  Neuinstallation/Update  #####
  62.     (if (OR (= #installmode 0) (= #installmode 1))
  63.     (
  64.       (if (AND (= #installmode 1) (= (getassign "MAILDEMON") ""))
  65.         (message #not-inst)
  66.         (
  67.         (if (= #installmode 0)
  68.           (
  69.             (set #dummy @default-dest)
  70.             (set #dest
  71.             (askdir
  72.               (prompt "Wohin soll der MAILDEMON installiert werden?")
  73.               (help
  74.                 (cat "Hier legen Sie fest, in welches Verzeichnis Sie den MAILDEMON installieren "
  75.                    "möchten. Im angewählten Verzeichnis wird automatisch ein Unterverzeichnis "
  76.                    "\"MAILDEMON\" angelegt.\nACHTUNG: Bitte installieren Sie den MAILDEMON "
  77.                    "nicht über eine bereits vorhandene Installation! Möchten Sie den "
  78.                    "MAILDEMON neu installieren, sollten Sie zuvor die Deinstallation "
  79.                    "starten.\n\n"
  80.                    @askdir-help)
  81.               )
  82.               (default #dummy)
  83.               (disk)
  84.             )
  85.             )
  86.             (set #dest (tackon #dest "MAILDEMON"))
  87.             (makedir #dest
  88.             (prompt "\n\n\n\n\n\nDas Unterverzeichnis \"MAILDEMON\" wird angelegt.")
  89.             (infos)
  90.             (confirm)
  91.             (help @makedir-help)
  92.             )
  93.             (message "\n\n\n\n\n\nDer Assign \"MAILDEMON:\" wird jetzt angelegt."
  94.             (help
  95.               (cat "Damit der MAILDEMON richtig funktioniert, benötigt er einen Assign "
  96.                  "namens \"MAILDEMON:\". Wenn Sie diesen Assign jetzt anlegen lassen, "
  97.                  "können Sie den MAILDEMON nach der Installation sofort benutzen.")
  98.             )
  99.             )
  100.             (makeassign "MAILDEMON" #dest)
  101.           )
  102.           (set #dest "MAILDEMON:")
  103.         )
  104.         (copyfiles
  105.           (prompt "Kopieren der Dateien...")
  106.           (choices "MAILDEMON" "MAILDEMON-Prefs" "MAILDEMON.guide" "Konfigkonverter" "Register.txt"
  107.                  "MAILDEMON.info" "MAILDEMON-Prefs.info" "MAILDEMON.guide.info" "Konfigkonverter.info" "Register.txt.info")
  108.           (help
  109.             (cat "Hier legen Sie fest, welche Dateien Sie in das MAILDEMON-Verzeichnis kopieren "
  110.                "lassen möchten. Grundsätzlich notwendig für die Arbeit des MAILDEMON sind nur "
  111.                "das Hauptprogramm selbst (\"MAILDEMON\") sowie der Voreinsteller (\"MAILDEMON-"
  112.                "Prefs\"). Alle weiteren Dateien sind für den Ablauf nicht notwendig.\n\n"
  113.                @copyfiles-help)
  114.           )
  115.           (source "")
  116.           (dest #dest)
  117.           (confirm)
  118.         )
  119.         (copyfiles
  120.           (prompt "Kopieren der Codierer...")
  121.           (choices "uuin" "Base64Encode")
  122.           (help
  123.             (cat "Diese beiden Programme werden zur UUcodierung (\"uuin\") und Base64-Codierung "
  124.                "(\"Base64Encode\") benötigt. Wenn Sie keine Codierung von Nachrichten wünschen, "
  125.                "brauchen Sie die Programme natürlich nicht zu installieren; sie sind für den "
  126.                "Ablauf nicht notwendig.\n\n"
  127.                @copyfiles-help)
  128.           )
  129.           (source "")
  130.           (dest "c:")
  131.           (confirm)
  132.         )
  133.         (if (= #installmode 0)
  134.           (
  135.             (makedir (tackon #dest "Konfiguration")
  136.             (prompt "\n\n\n\n\n\nDas Unterverzeichnis \"Konfiguration\" wird angelegt.")
  137.             (confirm)
  138.             (help
  139.               (cat "Im Unterverzeichnis \"Konfiguration\" legt der MAILDEMON alle Konfigurations"
  140.                  "dateien ab. Dieses Verzeichnis ist für den Ablauf unbedingt notwendig!\n\n"
  141.                  @makedir-help)
  142.             )
  143.             )
  144.             (startup 'MAILDEMON'
  145.             (prompt "\n\n\n\n\nDer Assign \"MAILDEMON:\" wird in die User-Startup eingefügt.")
  146.             (command (cat "Assign MAILDEMON: \"" #dest "\""))
  147.             (help
  148.               (cat "Damit der MAILDEMON richtig funktioniert, benötigt er einen Assign "
  149.                  "namens \"MAILDEMON:\". Der Einfachheit halber wird dieser Assign "
  150.                  "normalerweise bereits beim Hochfahren des Rechners angelegt (in der "
  151.                  "User-Startup). In Ihre User-Startup werden jetzt folgende Zeilen "
  152.                  "eingefügt:\n\n;BEGIN MAILDEMON\nAssign MAILDEMON: \"" #dest "\"\n"
  153.                  ";END MAILDEMON\n\n"
  154.                  @startup-help)
  155.             )
  156.             )
  157.           )
  158.         )
  159.         (message
  160.           (cat "Nach 2 Major-Updates habe ich mich nun entschlossen, alle weiteren Updates "
  161.              "kostenlos herauszubringen. Dies bedeutet für registrierte Anwender, daß sie von "
  162.              "allen neuen Features kostenfreien Gebrauch machen können. Allerdings bin ich in "
  163.              "der Situation, daß ich für meine Arbeit nicht belohnt werde. Jetzt meine Bitte "
  164.              "an Sie: Wenn Sie der Meinung sind, daß meine Arbeit entschädigt werden sollte, "
  165.              "können Sie mir eine Spende zukommen lassen (meine Bankverbindung finden Sie auf "
  166.              "der nächsten Seite). Sie helfen mir damit, die Entwicklung des MAILDEMON aufrecht "
  167.              "zu erhalten und weiter voranzutreiben.\nVielen Dank.")
  168.         )
  169.         (message
  170.           (cat "\nMeine Adresse:\n\n"
  171.              "Maik Schreiber\n"
  172.              "Ruschvitzstraße 19\n"
  173.              "18528 Bergen\n"
  174.              "FR Germany\n\n\n"
  175.              "Meine Bankverbindung:\n\n"
  176.              "Kontonummer: 214 09 11 (Maik Schreiber)\n"
  177.              "Bankleitzahl: 130 700 00 (Deutsche Bank)")
  178.         )
  179.         )
  180.       )
  181.     )
  182.     )
  183.  
  184.     ; #####  Konfigkonverter      #####
  185.     (if (= #installmode 2)
  186.     (if (= (getassign "MAILDEMON") "")
  187.       (message #not-inst)
  188.       (run "Konfigkonverter <>CON:0/11/640/189/Konfigkonverter")
  189.     )
  190.     )
  191.  
  192.     ; #####  PMBS2Emp  #####
  193.     (if (= #installmode 3)
  194.     (
  195.       (set #p2e
  196.         (askchoice
  197.         (prompt "Wie soll PMBS2Emp gestartet werden?")
  198.         (choices "Umleitung in eine .emp-Datei"
  199.                "Umleitung in ein Fenster"
  200.                "Exit")
  201.         (help
  202.           (cat "Mit dem Hilfsprogramm \"PMBS2Emp\" ist es möglich, die Brettliste des "
  203.              "Mailboxprogramms \"Prometheus\" in eine für den MAILDEMON zugeschnittene "
  204.              "Form zu bringen (Empfängergruppen).\nACHTUNG: Der Server muß während des "
  205.              "Starts von \"PMBS2Emp\" aktiv sein!\n\n"
  206.              @askchoice-help)
  207.         )
  208.         )
  209.       )
  210.       (if (OR (= #p2e 0) (= #p2e 1))
  211.         (
  212.         (set #pattern
  213.           (askstring
  214.             (prompt "\n\n\nBitte ein Muster eingeben:")
  215.             (default "#?")
  216.             (help
  217.             (cat "PMBS2Emp ist ab der Version 1.2 in der Lage, Bretter nach einem Muster "
  218.                  "auszugeben, z.B. \"#?WERB#?\". Geben Sie hier bitte das gewünschte Muster "
  219.                  "ein. Ist das Muster leer, wird automatisch \"#?\" angenommen, also alle "
  220.                  "Bretter.")
  221.             )
  222.           )
  223.         )
  224.         (if (= #p2e 0)
  225.           (set #dir
  226.             (askfile
  227.             (prompt "In welche Datei soll die Ausgabe umgeleitet werden?")
  228.             (help @askfile-help)
  229.             (default "Bretter.emp")
  230.             )
  231.           )
  232.           (set #dir "CON:0/11/640/189/PMBS2Emp")
  233.         )
  234.         (run "LZX e PMBS2Emp.lzx RAM: PMBS2Emp")
  235.         (run (cat "RAM:PMBS2Emp >" #dir " " #pattern))
  236.         (delete "RAM:PMBS2Emp")
  237.         )
  238.       )
  239.     )
  240.     )
  241.  
  242.     ; #####  Beispielkonfiguration        #####
  243.     (if (= #installmode 4)
  244.     (
  245.       (if (= (getassign "MAILDEMON") "")
  246.         (message #not-inst)
  247.         (
  248.         (set #konfig
  249.           (askchoice
  250.             (prompt "Welche Beispielkonfiguration soll installiert werden?")
  251.             (choices "Prometheus"
  252.                  "FastCall"
  253.                  "Connectline"
  254.                  "Exit")
  255.             (help
  256.             (cat "Für die Mailboxprogramme \"Prometheus\", \"FastCall\" und \"Connectline\" "
  257.                  "liegen Beispielkonfigurationen vor. Wählen Sie hier, welche dieser Beispiel"
  258.                  "konfigurationen Sie installieren möchten.\nACHTUNG: Bevor Sie eine "
  259.                  "Beispielkonfiguration installieren, sollte der MAILDEMON installiert "
  260.                  "worden sein!\n\n"
  261.                  @askchoice-help)
  262.             )
  263.           )
  264.         )
  265.         (if (= #konfig 0)
  266.           (run "LZX <>CON:0/11/640/189/Beispielkonfiguration x CfgPrometheus.lzx MAILDEMON:"
  267.             (prompt "\n\n\n\n\nInstalliere jetzt die Beispielkonfiguration für \"Prometheus\".")
  268.             (help #cfg-help)
  269.             (confirm)
  270.           )
  271.         )
  272.         (if (= #konfig 1)
  273.           (run "LZX <>CON:0/11/640/189/Beispielkonfiguration x CfgFastCall.lzx MAILDEMON:"
  274.             (prompt "\n\n\n\n\nInstalliere jetzt die Beispielkonfiguration für \"FastCall\".")
  275.             (help #cfg-help)
  276.             (confirm)
  277.           )
  278.         )
  279.         (if (= #konfig 2)
  280.           (run "LZX <>CON:0/11/640/189/Beispielkonfiguration x CfgConnectline.lzx MAILDEMON:"
  281.             (prompt "\n\n\n\n\nInstalliere jetzt die Beispielkonfiguration für \"Connectline\".")
  282.             (help #cfg-help)
  283.             (confirm)
  284.           )
  285.         )
  286.         )
  287.       )
  288.     )
  289.     )
  290.  
  291.     ; #####  Deinstallation  #####
  292.     (if (= #installmode 5)
  293.     (
  294.       (set #dir (getassign "MAILDEMON"))
  295.       (if (= #dir "")
  296.         (message #not-inst)
  297.         (
  298.         (if (= (askbool
  299.                (prompt "\n\n\n\n\nSoll der MAILDEMON wirklich deinstalliert werden?")
  300.                (help "")
  301.                (default 0)
  302.              ) 1)
  303.           (
  304.             (makeassign "MAILDEMON")
  305.             (delete #dir (all))
  306.             (delete #dir (info))
  307.             (message
  308.             (cat "\n\nBei der Installation wurde in Ihrer User-Startup ein Assign eingefügt. "
  309.                  "Um diesen zu entfernen, müssen Sie die Datei s:User-Startup in einen "
  310.                  "Editor laden und folgende Zeilen entfernen:\n\n;BEGIN MAILDEMON\n"
  311.                  "Assign MAILDEMON: \"" #dir "\"\n;END MAILDEMON\n\nDamit ist die "
  312.                  "Deinstallation dann abgeschlossen.")
  313.             )
  314.           )
  315.         )
  316.         )
  317.       )
  318.     )
  319.     )
  320.  
  321.     ; #####  Ente  #####
  322.     (if (= #installmode 6) (exit (quiet)))
  323.   )
  324. )
  325.  
  326.